function create_153_cards(id_cp,id_T)
fgrid_101=fopen('grid_101.bdf','r');
fini_153=fopen('.153.bdf','r');
f153=fopen('153.bdf','w');

while feof(fini_153)==0
    entry=fgetl(fini_153);
    fprintf(f153,'%s\n',entry);
end
fprintf(f153,'\n');
while feof(fgrid_101)==0
    entry=fgetl(fgrid_101);
    id=sscanf(entry(9:16),'%f');
    y=sscanf(entry(33:40),'%f');
    if id==id_cp
        entry(57:64)='   35   ';
    elseif id==id_T
        entry(57:64)='   13   ';
    elseif y==0
        entry(57:64)='   246  ';
    end
    fprintf(f153,'%s\n',entry);
end
fclose('all');
end